home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 159 / 159.d81 / b.hams menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  44 lines
  1. 10 poke56,56:clr:dv=peek(186):ifdv<8thendv=8
  2. 12 poke53281,0:poke53280,0:print"[147]":gosub60000
  3. 20 sys57812"hams.fnt",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  4. 30 poke53272,31:poke53280,.:poke53281,.
  5. 40 print"[147]"spc(8)" [212]he [200].[193].[205].[211]. [205]ain [205]enu [146]"
  6. 50 print:printspc(10)"1. [158][208]ack new movie"
  7. 60 print:printspc(10)"2. [158][205]odify existing data file"
  8. 70 print:printspc(10)"3. [158][205]ake executable file"
  9. 80 print:printspc(10)"4. [158][209]uit to [204][207][193][196][211][212][193][210]"
  10. 90 print:printspc(10)" [208]lease [195]hoose [207]ne [146]"
  11. 100 geta$:ifa$=""then100
  12. 110 ifa$<"1"ora$>"4"then100
  13. 120 a=val(a$):onagoto130,140,150,40000
  14. 130 f$="hams.packer":hb=8:lb=1:goto160
  15. 140 f$="hams.modify":hb=32:lb=1:goto160
  16. 150 f$="hams.linker":hb=32:lb=1
  17. 160 poke53281,15:poke53280,15
  18. 165 print"[147][155]p[207]"256*hb"[157],0:p[207]43,"lb"[157]:p[207]44,"hb"[157]:clr"
  19. 170 print"l[207]"chr$(34)f$chr$(34)","dv"";:poke2039,dv
  20. 180 poke631,13:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
  21. 190 poke53272,23:end
  22. 999 stop
  23. 10000 d=peek(186):n$="b.hams menu":open15,d,15,"s0:"+n$:close15:saven$,d:end
  24. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  25. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  26. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  27. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  28. 40040 close2:open2,i,2:close2:ifstthen40060
  29. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  30. 40060 next:return
  31. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  32. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  33. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  34. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  35. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  36. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  37. 60030 z$(0)="[200]. [193]. [205]. [211].
  38. 60040 z$(2)[178]"by (NULL)ay (NULL)arrish
  39. 60050 z$(4)="(c) 1997 by [202] & [198] [208]ublishing, [201]nc."
  40. 60060 z$(6)="[212]his program is not shareware
  41. 60070 z$(7)[178]"or in the public domain."
  42. 60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718
  43. 60090 poke214,12:print:fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return
  44.